unit dConfigGeral;

interface

uses
classes,
dObjects;

type
Tconfig_geral=class(TdObjects)
private
fflagativaenvioemail : boolean;
fidconfiggeral       : integer;
fidempresa           : integer;
public
constructor create; 
destructor destroy; override;
procedure clear;
published
 property flagativaenvioemail : boolean read fflagativaenvioemail write fflagativaenvioemail;
 property idconfiggeral : integer read fidconfiggeral write fidconfiggeral;
 property idempresa : integer read fidempresa write fidempresa;
end;

implementation

constructor Tconfig_geral.create;
begin
inherited;
clear;
AddPK(['idconfiggeral']);
TableName := 'config_geral';
end;
destructor Tconfig_geral.destroy;
begin
inherited destroy;
end;
procedure Tconfig_geral.clear;
begin
 fflagativaenvioemail :=false;
 fidconfiggeral       :=0;
 fidempresa           :=0;
end;


end.
 